
#### Regressões logísticas ####

# carregar pacotes #

options(scipen=999) # tirar notação científica

library(MASS) 

#### modelo para rodar regressão com base na variável 'reconhecimento da ciência pela sociedade brasileira' ####

# em data = X, substituir X pelo nome do data frame #
# usando general linear models, família binomial pois as variáveis a serem explicadas são todas marcadas como sim ou não, 0 e 1 ####

logistic <- glm(c_reco_soc_brasileira~genero+idade+cat_adm+tempo_instit+nota_capes+areas, data = X, family = binomial)

summary(logistic) # dará as respostas com p-valor mas ainda com valores em log
exp(logistic$coefficients) # eleva os coeficientes à exponencial para que sejam inteligíveis






